Aminet 8/Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso/Aminet/util/batch/BGUIMenu.lha/BGUIMenu-Install

Text File | 1995-09-03 | 5KB | 189 lines

;
; Installer Script for BGUIMenu V1.x
;

;
; Procedures
;

(procedure InstallLib
    (working ("Copying %s" libname))
    (copylib
        (prompt ("Do you want to install the \"%s\"?" libname))
        (help @copylib-help)
        (source (tackon "libs/" libname))
        (dest "libs:")
        (confirm)
    )
)

(procedure AskDocDir
    (set docdir
        (askdir
            (prompt "Where do you want to install the documentation? ")
            (help @askdir-help)
            (default "Help:English")
        )
    )
)

(procedure Install
    (message "You are now about to install the BGUIMenu program. "
             "You will be first asked for all the different files "
             "you can install and then this script will begin to "
             "install the files."
    )

    (set maindest
        (askdir
            (prompt "Where do you want to install BGUIMenu program? "
                    "No drawer will be created in this directory. ")
            (help @askdir-help)
            (default "Sys:Utilities")
        )
    )
    (set @default-dest maindest)

    (set maindrawer ("%s drawer? " maindest))
    (set fileflag
        (askoptions
            (prompt "Which files do you want to install in the "
                    maindrawer)
            (help @askoptions-help)
            (choices
                "BGUIMenu"
                "BGUIMenu.guide"
            )
        )
    )

    (set examples
        (askbool
            (prompt "Do you want to install the extra examples? ")
            (help "The example files are made to show you how to "
                  "work with BGUIMenu. If you select yes, you can "
                  "select between all the example script delivered "
                  "with this Version of BGUIMenu. The files will be "
                  "copied to your \"s:\" directory.")
        )
    )

    (set exampleflag 0)
    (if examples
        (
            (set exampleflag
                (askoptions
                    (prompt "Which Example Scripts do you want to install in "
                            "your \"s:\" drawer? ")
                    (help @askoptions-help)
                    (choices
                        "Example1"
                        "Example2"
                        "Unpack"
                    )
                )
            )
        )
    )

    (set lib
       (askbool
           (prompt "Do you wish to install the bgui.library delivered with "
                   "this version of BGUIMenu ? Press Help for more info.")
           (help   "You will need this library if you want to use BGUIMenu "
                   "at all. I included the newest Version I got. "
                   "If you already have installed bgui.library you might "
                   "want to skip this option.")
        )
    )

; Begin to copy the files


    (if fileflag
        (
            (if (in fileflag 0)
                (
                    (copyfiles
                        (source (tackon sdir "BGUIMenu"))
                        (dest maindest)
                        (infos)
                   )
                )
            )

            (if (in fileflag 1)
                (
                    (AskDocDir)
                    (copyfiles
                        (source (tackon sdir "BGUIMenu.guide"))
                        (dest docdir)
                        (infos)
                    )
                )
            )
        )
    )
    (complete 50)

    (if examples
        (
            (working "Copying Example files")
            (if (in examples 0)
                (
                    (copyfiles
                        (source (tackon sdir "Examples/"))
                        (dest "s:")
                        (pattern "Example1#?")
                    )
                )
            )
            (if (in examples 1)
                (
                    (copyfiles
                        (source (tackon sdir "Examples/"))
                        (dest "S:")
                        (pattern "Example2#?")
                    )
                    (copyfiles
                        (source (tackon sdir "Examples/"))
                        (dest "S:")
                        (pattern "Script#?")
                    )
                )
            )
            (if (in examples 2)
                (
                    (copyfiles
                        (source (tackon sdir "Examples/"))
                        (dest "S:")
                        (pattern "Unpack#?")
                    )
                )
            )
        )
    )
    (complete 75)

    (if lib
        (
            (set libname "bgui.library")
            (InstallLib)
        )
    )
    (complete 100)
)

; Main "program" :-)

(complete 0)
(set sdir (pathonly @icon))
(if (< (/ (getversion) 65536) 37)
    (abort "You must have Kickstart 2.0 or greater to use this installation"
           " utility and to run \"BGUIMenu\".")
)

(welcome)

(Install)